Option Explicit
Sub G_Sample004()
    'ոG_Data01
    Dim myShp As Shape
    Dim mySht As Worksheet
    Set mySht = Worksheets("G_Data01")			'N
    For Each myShp In mySht.Shapes
        With myShp
            If .Type = msoAutoShape Then			'HTypeӰ
                .Select False
            End If
        End With
    Next
    Set mySht = Nothing						'
End Sub

